home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / e_SML / get_home.sml < prev    next >
Encoding:
Text File  |  1997-05-14  |  119 b   |  7 lines  |  [TEXT/Moml]
  1. (* 14May97 e *)
  2.  
  3. fun get_home _ =
  4.   case Process.getEnv "PATH_TRANSLATED" of
  5.     SOME n => Path.dir n
  6.   | NONE => ":"
  7. ;